﻿' ----------------------------------------------------------------------
'
' EntityCollection.vb
'
'   ... Classes
'
'   This class contains the implementation of a single folder.
'
' ----------------------------------------------------------------------
' version:  1.0.0.1
' today:    09/03/10  10:41:00
' ident:    "@(#)/dbfs/EntityCollection.vb 1.0 0.1 09/03/10 0 rjs"


Namespace Dbfs

    Public Class EntityCollection
        Inherits List(Of FileSystemEntity)


#Region " Methods "
        ''' <summary>
        ''' Appends the set of <see cref="FileSystemEntity"/> objects as
        ''' expressed in <paramref name="list"/> to the current list.
        ''' </summary>
        ''' <param name="list">A set of <see cref="FileSystemEntity"/> objects
        ''' expressed as an <see cref="EntityCollection"/>.</param>
        ''' <remarks></remarks>
        Public Sub Append(ByVal list As EntityCollection)
            For Each Item As FileSystemEntity In list
                Add(Item)
            Next
        End Sub

        ''' <summary>
        ''' Appends the set of <see cref="FileSystemEntity"/> objects as
        ''' expressed in <paramref name="list"/> to the current list.
        ''' </summary>
        ''' <param name="list">A set of <see cref="FileSystemEntity"/> objects
        ''' expressed as an array of <see cref="FileSystemEntity"/>.</param>
        ''' <remarks></remarks>
        Public Sub Append(ByVal list() As FileSystemEntity)
            For i As Int16 = 0 To list.Length - 1
                Add(list(i))
            Next
        End Sub

        Public Function Clone() As EntityCollection
            Return Me.MemberwiseClone
        End Function
#End Region ' Methods

    End Class

End Namespace

